home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Icon 8.1 / msm-2 / tests.sit / tests / stand / fncs1.out < prev    next >
Encoding:
Text File  |  1992-12-08  |  4.7 KB  |  175 lines  |  [TEXT/????]
  1.  ----> &null
  2. f := open("foo.baz","w") ----> file(foo.baz)
  3. write(f,"hello world") ----> "hello world"
  4. close(f) ----> file(foo.baz)
  5. F := open("gc1.icn") ----> file(gc1.icn)
  6. )(niam erudecorp
  7. { od 001 ot 1 yreve   
  8. )snoitcelloc&(etirw      
  9. od 001 ot 1 yreve      
  10. )0001(tsil         
  11. }      
  12. )"... gnitcelloc"(etirw   
  13. )(tcelloc   
  14. { od )0001 ot 1,"x"(lper =: s yreve   
  15. ))esacl&(gnirts(tesc      
  16. )(elbat =: t      
  17. )]s[(tes      
  18. ]5 : 2[s      
  19. }      
  20. dne
  21. every write(reverse(!F)) ----> none
  22. close(F) ----> file(gc1.icn)
  23. F := open("gc1.icn") ----> file(gc1.icn)
  24. procedure main()
  25.    every 1 to 100 do {
  26.       write(&collections)
  27.       every 1 to 100 do
  28.          list(1000)
  29.       }
  30.    write("collecting ...")
  31.    collect()
  32.    every s := repl("x",1 to 1000) do {
  33.       cset(string(&lcase))
  34.       t := table()
  35.       set([s])
  36.       s[2 : 5]
  37.       }
  38. end
  39. every write(map(!F)) ----> none
  40. close(F) ----> file(gc1.icn)
  41. F := open("gc1.icn") ----> file(gc1.icn)
  42. pr-c-d-r- m--n()
  43.    -v-ry 1 t- 100 d- {
  44.       wr-t-(&c-ll-ct--ns)
  45.       -v-ry 1 t- 100 d-
  46.          l-st(1000)
  47.       }
  48.    wr-t-("c-ll-ct-ng ...")
  49.    c-ll-ct()
  50.    -v-ry s := r-pl("x",1 t- 1000) d- {
  51.       cs-t(str-ng(&lc-s-))
  52.       t := t-bl-()
  53.       s-t([s])
  54.       s[2 : 5]
  55.       }
  56. -nd
  57. every write(map(!F,&cset || "aeiou",&cset || "-----")) ----> none
  58. close(F) ----> file(gc1.icn)
  59. F := open("gc1.icn") ----> file(gc1.icn)
  60. procedureumain()
  61. uuueveryu1utou100udou{
  62. uuuuuuwrite(&collections)
  63. uuuuuueveryu1utou100udo
  64. uuuuuuuuulist(1000)
  65. uuuuuu}
  66. uuuwrite("collectingu...")
  67. uuucollect()
  68. uuueveryusu:=urepl("x",1utou1000)udou{
  69. uuuuuucset(string(&lcase))
  70. uuuuuutu:=utable()
  71. uuuuuuset([s])
  72. uuuuuus[2u:u5]
  73. uuuuuu}
  74. end
  75. every write(map(!F,&cset || "     ",&cset || "aeiou")) ----> none
  76. close(F) ----> file(gc1.icn)
  77. f := open("gc1.icn") ----> file(gc1.icn)
  78. procedure main()
  79.    every 1 to 100 do {
  80.       write(&collections)
  81.       every 1 to 100 do
  82.          list(1000)
  83.       }
  84.    write("collecting ...")
  85.    collect()
  86.    every s := repl("x",1 to 1000) do {
  87.       cset(string(&lcase))
  88.       t := table()
  89.       set([s])
  90.       s[2 : 5]
  91.       }
  92. end
  93. while writes(reads(f)) ----> none
  94. close(f) ----> file(gc1.icn)
  95. f := open("gc1.icn") ----> file(gc1.icn)
  96. procedure main()
  97.    every 1 to 100 do {
  98.       write(&collections)
  99.       every 1 to 100 do
  100.          list(1000)
  101.       }
  102.    write("collecting ...")
  103.    collect()
  104.    every s := repl("x",1 to 1000) do {
  105.       cset(string(&lcase))
  106.       t := table()
  107.       set([s])
  108.       s[2 : 5]
  109.       }
  110. end
  111. while writes(reads(f,10)) ----> none
  112. f := open("gc1.icn") ----> file(gc1.icn)
  113. procedure main()
  114.    every 1 to 100 do {
  115.       write(&collections)
  116.       every 1 to 100 do
  117.          list(1000)
  118.       }
  119.    write("collecting ...")
  120.    collect()
  121.    every s := repl("x",1 to 1000) do {
  122.       cset(string(&lcase))
  123.       t := table()
  124.       set([s])
  125.       s[2 : 5]
  126.       }
  127. end
  128. while write(read(f)) ----> none
  129. close(f) ----> file(gc1.icn)
  130. 1
  131. 2
  132. 3
  133. 4
  134. 5
  135. 6
  136. 7
  137. 8
  138. 9
  139. 10
  140. 11
  141. 12
  142. 13
  143. 14
  144. 15
  145. 16
  146. 17
  147. 18
  148. 19
  149. 20
  150. 0.25  1.318 0.252 0.244 0.083 0.968 0.247 0.255 0.5   1.284 -1.38 -1.26 
  151. 0.5   1.047 0.523 0.463 0.165 0.877 0.479 0.546 0.707 1.648 -0.69 -0.63 
  152. 0.75  0.722 0.848 0.643 0.244 0.731 0.681 0.931 0.866 2.117 -0.28 -0.26 
  153. 1.0   0.0   1.570 0.785 0.321 0.540 0.841 1.557 1.0   2.718 0.0   0.0   
  154. 1.25              0.896 0.394 0.315 0.948 3.009 1.118 3.490 0.223 0.203 
  155. 1.5               0.982 0.463 0.070 0.997 14.10 1.224 4.481 0.405 0.369 
  156. 1.75              1.051 0.528 -0.17 0.983 -5.52 1.322 5.754 0.559 0.509 
  157. 2.0               1.107 0.588 -0.41 0.909 -2.18 1.414 7.389 0.693 0.630 
  158. 2.25              1.152 0.643 -0.62 0.778 -1.23 1.5   9.487 0.810 0.738 
  159. 2.5               1.190 0.694 -0.80 0.598 -0.74 1.581 12.18 0.916 0.834 
  160. 2.75              1.222 0.741 -0.92 0.381 -0.41 1.658 15.64 1.011 0.920 
  161. 3.0               1.249 0.785 -0.98 0.141 -0.14 1.732 20.08 1.098 1.0   
  162. 3.25              1.272 0.825 -0.99 -0.10 0.108 1.802 25.79 1.178 1.072 
  163. 3.5               1.292 0.862 -0.93 -0.35 0.374 1.870 33.11 1.252 1.140 
  164. 3.75              1.310 0.896 -0.82 -0.57 0.696 1.936 42.52 1.321 1.203 
  165. 4.0               1.325 0.927 -0.65 -0.75 1.157 2.0   54.59 1.386 1.261 
  166. 4.25              1.339 0.956 -0.44 -0.89 2.006 2.061 70.10 1.446 1.317 
  167. 4.5               1.352 0.982 -0.21 -0.97 4.637 2.121 90.01 1.504 1.369 
  168. 4.75              1.363 1.007 0.037 -0.99 -26.5 2.179 115.5 1.558 1.418 
  169. 5.0               1.373 1.030 0.283 -0.95 -3.38 2.236 148.4 1.609 1.464 
  170. 5.25              1.382 1.051 0.512 -0.85 -1.67 2.291 190.5 1.658 1.509 
  171. 5.5               1.390 1.071 0.708 -0.70 -0.99 2.345 244.6 1.704 1.551 
  172. 5.75              1.398 1.089 0.861 -0.50 -0.59 2.397 314.1 1.749 1.592 
  173. 6.0               1.405 1.107 0.960 -0.27 -0.29 2.449 403.4 1.791 1.630 
  174. 6.25              1.412 1.123 0.999 -0.03 -0.03 2.5   518.0 1.832 1.668 
  175.